home *** CD-ROM | disk | FTP | other *** search
/ Celebration Sounds / Celebration Sounds.iso / pc / program / logo.dxr / Lingo_1.ls < prev    next >
Encoding:
Text File  |  1998-05-20  |  895 b   |  44 lines
  1. on startMovie
  2.   global gDefaultSoundLevel
  3.   clearGlobals()
  4.   cursor(-1)
  5.   set gDefaultSoundLevel to the soundLevel
  6.   set the soundLevel to 3
  7.   updateStage()
  8. end
  9.  
  10. on stopMovie
  11.   global gDefaultSoundLevel
  12.   set the soundLevel to gDefaultSoundLevel
  13.   updateStage()
  14.   clearGlobals()
  15.   unLoad()
  16. end
  17.  
  18. on mouseDown
  19.   global gMouseDownScript
  20.   if gMouseDownScript = 1 then
  21.     hEscapeLogo()
  22.   end if
  23. end
  24.  
  25. on hEscapeLogo
  26.   cursor(4)
  27.   hDecreaseSound([1, 2], 0, 255)
  28.   go("escape")
  29. end
  30.  
  31. on hDecreaseSound pSoundChannel, pMinVolume, pMaxVolume
  32.   repeat with i = pMaxVolume down to pMinVolume
  33.     repeat with tSoundChannel in pSoundChannel
  34.       set the volume of sound tSoundChannel to i
  35.       updateStage()
  36.     end repeat
  37.   end repeat
  38.   repeat with tSoundChannel in pSoundChannel
  39.     puppetSound(tSoundChannel, 0)
  40.     updateStage()
  41.     set the volume of sound tSoundChannel to pMaxVolume
  42.   end repeat
  43. end
  44.